home *** CD-ROM | disk | FTP | other *** search
- type
- xthing = array[1..1000] of integer;
- var
- x,y : xthing;
- i,len,segment,baseio : integer;
-
- procedure POKEWF(var x: xthing;i,len,segment:integer);external 'TURB320';
- procedure PEEKWF(i,segment :integer; var x : xthing; len :integer);external POKEWF[3];
- procedure INT320( baseio : integer); external POKEWF[9];
- function REGIN( baseio : integer): integer; external POKEWF[12];
- function REGINB( baseio : integer): integer; external POKEWF[15];
- procedure REGOUT( value,baseio : integer); external POKEWF[18];
- procedure GO320( baseio : integer); external POKEWF[21];
- procedure HLT320( baseio : integer); external POKEWF[24];